#MCES calibration====
a.settings.calib <- data.frame(mu.a=log(c(4,4.05,320,NA,NA)),
                               sigma.a=c(0,0,0,NA,NA),
                               dave=c(0.32,0.4,0.11,NA,NA), #AVE of distance parameter: each increase in abs(n-i) raises dist AVE by dave
                               mu.b0 = c(6.6,12,29,NA,NA), #  x0 (constant): shifting up lowers outside good share
                               speed =c(0.9,0.9,0.7,NA,NA)) 

b.settings.calib <- data.frame(mu.a=log(c(4,4.05,350,NA,NA)), #note the log
                               sigma.a=c(0,0,0,NA,NA),
                               dave=c(0.32,0.4,0.15,NA,NA), #AVE of distance parameter: each increase in abs(n-i) raises dist AVE by dave
                               mu.b0 = c(6.6,12,31,NA,NA), #  x0 (constant): shifting up lowers outside good share
                               speed =c(0.9,0.9,0.7,NA,NA)) 
#
c.settings.calib <- b.settings.calib

#MLOG calibration====
a.settings.mlog.calib <- data.frame(mu.a=c(-1.75,-1.85,0.65,NA,NA),
                                    sigma.a=c(0,0,0,NA,NA),
                                    dave=c(0.55,0.85,0.13,NA,NA), #AVE of distance parameter: each increase in abs(n-i) raises dist AVE by dave
                                    mu.b0 = c(2.1,7.6,12.5,NA,NA), #  x0 (constant): shifting up lowers outside good share
                                    speed =c(0.9,0.9,0.6,NA,NA)) 
#
b.settings.mlog.calib <- data.frame(mu.a=c(-1.8,-2,0.58,NA,NA),
                                    sigma.a=c(0,0,0,NA,NA),
                                    dave=c(0.65,1.1,0.16,NA,NA), #AVE of distance parameter: each increase in abs(n-i) raises dist AVE by dave
                                    mu.b0 = c(2.2,7.7,12.5,NA,NA), #  x0 (constant): shifting up lowers outside good share
                                    speed =c(0.9,0.9,0.6,NA,NA)) 
#
c.settings.mlog.calib <- b.settings.mlog.calib
